10 DATA120,169,51,133,1,169,,133,251,133,253,169,208,133,252,169,48,133,254,160
20 DATA0,177,251,145,253,200,208,249,230,252,230,254,165,252,201,216,208,237,169
30 DATA55,133,1,88,96:FORL=0TO43:READS:POKE49152+L,S:NEXTL:SYS49152:
40 POKE53272,28:POKE53280,4:POKE53281,7:PRINT"[147][144]"SPC(13)"DIGITAL  TALK":CN=94
50 PRINTSPC(13)"CURSOR EDITOR":PRINT" (W) BY FORD PREFECT  FREEWARE FROM DT "
55 GOSUB60:GOTO75
60 PRINT"     [176][192][192][192][192][192][192][192][192][174]":FORL=0TO7:PRINT"     [221]********[221]":NEXTL:
70 PRINT"     [173][192][192][192][192][192][192][192][192][189][145][145][145][145]":PRINTSPC(23)"_ - SET CURSOR":PRINTSPC(23)"E - END"
72 PRINTSPC(23)"C - CLEAR":PRINTSPC(23)"L - LOAD":PRINTSPC(23)"S - SAVE":RETURN
75 Q=12288:ZN=CN*8:GOSUB250
80 P=1024+(40*(7+Y))+(6+X):POKEP,PEEK(P)+128:POKE1364,CN:YP=PEEK(P)-128
90 GETA$:IFA$=""THENIFY<7THENPOKEP,PEEK(P)-128:Y=Y+1:GOTO80
100 IFA$="[145]"THENIFY>0THENPOKEP,PEEK(P)-128:Y=Y-1:GOTO80
110 IFA$=""THENIFX<7THENPOKEP,PEEK(P)-128:X=X+1:GOTO80
120 IFA$="[157]"THENIFX>0THENPOKEP,PEEK(P)-128:X=X-1:GOTO80
130 IFA$=CHR$(13)THENGOSUB170:GOTO80
140 IFA$="_"THENGOSUB270
150 IFA$="E"THENEND
152 IFA$="C"THENGOSUB260:GOTO80
154 IFA$="L"THENGOSUB350:L$="":POKE198,0:GOTO80
156 IFA$="S"THENGOSUB300:S$="":POKE198,0:GOTO80
160 GOTO90
170 IFPEEK(P)=170THENPOKEP,46:POKEQ+Y+ZN,PEEK(Q+Y+ZN)-2^(7-X):RETURN
180 POKEP,42:POKEQ+Y+ZN,PEEK(Q+Y+ZN)OR2^(7-X):RETURN
250 FORL=0TO7:POKEQ+L+ZN,255:NEXTL:RETURN
260 FORL=0TO7:POKEQ+L+ZN,0:NEXTL:FORL=0TO7:FORR=0TO7:POKE1024+(L+7)*40+(6+R),46:
262 NEXTR:NEXTL:RETURN
270 PRINT"BITTE WARTEN ..."
271 FORI=128TO255:FORU=0TO7:
280 POKEQ+I*8+U,PEEK(Q+(I-128)*8+U)ORPEEK(Q+U+ZN):NEXTU:NEXTI:PRINT" FERTIG ! "
290 FORTP=0TO1000:NEXTTP:PRINT"[145][145]                 ":PRINT"             ":RETURN
300 INPUT" SAVE - NAME ";S$:IFS$=""THENPRINT"[145]                           [145]":POKEP,YP:RETURN
305 F$=S$+",P,W":OPEN1,8,2,F$:PRINT#1,CHR$(0);CHR$(48);
310 FORMT=QTOQ+2047:PRINT#1,CHR$(PEEK(MT));:NEXTMT:CLOSE1:
320 PRINT"[145]                                        [145]":POKEP,42:RETURN
350 INPUT" LOAD - NAME ";L$:IFL$=""THENPRINT"[145]                           [145]":POKEP,YP:RETURN
355 F$=L$+",P,R":OPEN1,8,2,F$:GET#1,NO$,NO$
360 FORMT=QTOQ+2047:GET#1,CO$:IFCO$=""THENPOKEMT,0:GOTO380
370 POKEMT,ASC(CO$):
380 NEXT:CLOSE1:PRINT"[145]                        ":GOSUB250:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]";
390 GOSUB60:POKEP,42:RETURN
400 :
401 :
402 :
403 :
404 :
405 :
406 :
407 :
408 :
409 :
410 REM  ZEICHENSATZ WIRD BEI JEDEM
420 REM  START NEU KOPIERT. VOR DEM
430 REM  SPEICHERN '_' DRUECKEN !!!
440 :
450 REM  GRUSS
460 :
470 REM          FORD PREFECT